home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / JORF21-2.ZIP;1 / JORFFILS.ZIP / FILEPRNT.J < prev    next >
Encoding:
Text File  |  1993-07-05  |  753 b   |  29 lines
  1. FilePrnt:Start
  2.   New (FileList, FileChoice, PrintList, PrintChoice)
  3.  
  4.   Win:Add("Reading Directory")
  5.     One Moment Please . . .
  6.   FileList  = Arr:Sort(Arr:Dir("*.*","EXE,BAK,OBJ,LIB,JRF"))
  7.   PrintList = Arr:Printers()
  8.   Win:Del
  9.  
  10.   Win:Add("Print a File")
  11.     Group:"&Files", Row:1 Col:1 Len:12 Wid:32
  12.     Array:"" Field:"FileList" Choice:"FileChoice"
  13.  
  14.     Group:"&Printers", Row:1 Col:36 Len:5 Wid:22
  15.     Array:"" Field:"PrintList" Choice:"PrintChoice"
  16.  
  17.     Button:"  &Go  " Row:8 Col:42
  18.       Action:"FilePrnt:Print(FileList[FileChoice] , PrintList[PrintChoice] )"
  19.     Button:" E&xit " Row:11 Col:42 Action:"Null"
  20.  
  21.   Return
  22.  
  23. FilePrnt:Print(File,Printer)
  24.   Win:Add
  25.     Printing . . .
  26.   File:Print(File,Printer)
  27.   Return Ok
  28.  
  29.